﻿Imports System.Configuration
Imports SRM


Public Class CLS_RBI
    Sub IniciaProceso(ByRef rp As DotNetResponse.SQLPersistence)

        Dim DT As DataTable
        ' Dim DR As DataRow+
        Dim Cod As String
        Dim Poli As String
        Dim St_prod As String
        Dim Fech_Ini As String

        Dim exec As New DotNetDAL.SQLPersistence(True, "ConnectionString") ' Tablas propietarias
        exec.ExecuteScalar(rp, "select isnull(Max(fecha_inicio_poliza),'01-01-1900') as fecha_inicio_poliza from tbl_registros_archivos")

        Dim Fecha As String = rp.GetScalar

        If rp.Errores Then
            rp.AddErrores(rp.MensajeError)
        Else

            Dim MiSRM As New SRMDataTable

            With MiSRM
                .Nodo = ConfigurationManager.AppSettings("Nodo")
                .Aplicacion = ConfigurationManager.AppSettings("App")
                .Base = "seguros"
                '.Campos = 4
                .Mensaje = "Select distinct tbl_polizas.sist_producto, tbl_polizas.codigo_cia, tbl_polizas.poliza, tbl_polizas.fecha_inicio_poliza  from tbl_polizas where tbl_polizas.sist_producto = 'SCS' and convert(varchar,tbl_polizas.fecha_inicio_poliza,112) > convert(varchar,'" & Fecha & "',112)"
                If (.Invocar) Then
                    DT = MiSRM.Respuesta
                    For Each DR As DataRow In DT.Rows
                        St_prod = DR(0)
                        Cod = DR(1)
                        Poli = DR(2)
                        Fech_Ini = DR(3)
                        exec.ExecuteNonQuery(rp, "insert tbl_archivos_scs (SIST_PRODUCTO, CODIGO_CIA, POLIZA, FECHA_INCIO_POLIZA) values ('" & St_prod & "','" & Cod & "','" & Poli & "', '" & Fech_Ini & "')")
                        'Insertar en Tabla???
                    Next
                End If
            End With
        End If

        exec.Commit()
        exec.Dispose()






        

        'INSERTAR EN TABLA TBL_REGISTRO_ARCHIVOS LOS SEGUROS    


    End Sub
End Class
